SuperModels in the Rainforest/SuperModels in the Rainforest.iso/rain.dxr/00048.ls

Text File | 1995-10-13 | 580 b | 29 lines

on exitFrame
  global lightswitch
  if the movieRate of sprite 3 > 0 then
    if lightswitch = 1 then
      set the cursor of sprite 3 to [563, 564]
    else
      set the cursor of sprite 3 to [565, 566]
    end if
    go(the frame)
  else
    set the cursor of sprite 3 to -1
    puppetSprite(3, 0)
    updateStage()
    go("Main Screen")
  end if
end

on keyDown
  if the key = RETURN then
    if the machineType = 256 then
      set the movieRate of sprite 3 to 0
      puppetSprite(3, 0)
      go(label("little") + 1)
    else
      go("Main Screen")
    end if
  end if
end